### Moral dictionaries ###
# good and bad
# Version 20.05.2019

base_dicts_elite <- dictionary(list(elites = c(
    "elit*",
    "establishment",
    "establishment's",
    "politician*", 
    "cronies",
    "aristocrat*",
    "bosses",
    "bosses'",
    "financier*",
    "circles*",
    "oligarch*",
    "banks",
    "ruling class",
    "politician*", 
    "political class*", 
    "mafia",
    "mafia's",
    "ruling circles",
    "apparatchik*", 
    "eurocra*", 
    "europhil*",
    "bad apples*",
    "bureaucrat", 
    "power monger", 
    "financial sharks", 
    "sycophancy",
    "Brussels mafia",
    "old elites")))
  
base_dicts_people <- dictionary(list(people = c(
    "people",
    "people's",
    "population",
    "population's",
    "europeans",
    "europeans'",
    "the public",
    "the public's'",
    "citizen",
    "citizens",
    "citizen's",
    "citizens'",
    "taxpayer",
    "taxpayers",
    "taxpayer's",
    "taxpayers'",
    "resident",
    "residents",
    "resident's",
    "residents'",
    "family", 
    "families", 
    "ordinary person*",
    "man on the street*", 
    "ordinary person*"
    )))

frame_dict_bad <- dictionary(list(bad = c( 
  "abuse*",
  "alienate",
  "annihilate",
  "apostasy",
  "apostate",
  "apparatchik*",
  "arrogan*",
  "bad apples",
  "bad",
  "betray*",
  "bias*",
  "bigot*",
  "blemish",
  "Brussels mafia",
  "contagio*",
  "corrupt*",
  "coward*",
  "cronies",
  "crooked*", 
  "cynical*",
  "damag*",
  "debase*",
  "debauche*",
  "deceiv*",
  "defector",
  "defian*",
  "defile*",
  "defy*",
  "denounce",
  "deprav*",
  "desecrat*",
  "deserted",
  "deserter*",
  "deserting",
  "destroy",
  "detriment*",
  "discrimnat*",
  "disgust*",
  "dishones",
  "disloyal*",
  "disobe*",
  "disproportion",
  "disrespect*",
  "dissociate",
  "dysfunctional*",
  "endanger*",
  "enem*",
  "eurocrat*",
  "europhil*",
  "evil",
  "favoritism",
  "filth*",
  "fraud",
  "greed",
  "gross",
  "harmful*",
  "heretic*",
  "hot air",
  "hungry for power",
  "ignore*",
  "immoral*",
  "impair",
  "imperialist*",
  "impiety",
  "impious",
  "imposter",
  "indecen*",
  "inequitable",
  "inhuman*",
  "instable",
  "insubordinat*",
  "insurgent",
  "intemperate",
  "jilt*",
  "lawless*",
  "lobby*",
  "miscreant",
  "mutinous",
  "nonconformist",
  "not in touch",
  "obscen*",
  "obstruct",
  "offend*",
  "old elites",
  "oppose",
  "out of touch",
  "pervert",
  "political class",
  "power grabbing",
  "power hungry",
  "power monger",
  "power-grabbing",
  "power-hungry",
  "privilege",
  "privileges",
  "profan*",
  "profligate",
  "ravage",
  "refuse",
  "refuse*",
  "renegade",
  "repuls*",
  "ruin*",
  "ruling circles",
  "ruling class",
  "sediti*",
  "self-satisfied",
  "self-interested",
  "self-serving",
  "sequester",
  "sick",
  "sin",
  "sinful*",
  "sinned",
  "sinner*",
  "sinning",
  "sins",
  "spurn",
  "stain*",
  "stomp",
  "sycophany",
  "taint*",
  "tarnish*",
  "traitor*",
  "transgress*",
  "trashy",
  "treacher*",
  "treason*",
  "unacceptable*",
  "uncaring",
  "unchaste",
  "unclean*",
  "undemocratic*",
  "unelected",
  "unequal*",
  "unfaithful",
  "unhealthy",
  "unresponsive",
  "unscrupulos",
  "useless",
  "venal",
  "wanton",
  "wealthy",
  "wicked*",
  "wretched*",
  "wrongdo*")))



frame_dict_good <- dictionary(list(good = c(
  "betray*",
  "blameless",
  "brave",
  "bravely",
  "cleanliness",
  "decency",
  "decent",
  "defen*",
  "digni*",
  "ethic*",
  "expense of",
  "fair",
  "forget",
  "forgetting",
  "hard earned",
  "hard working",
  "hard-earned",
  "hard-working", 
  "hardworking", 
  "honest*",
  "honor*",
  "honour*", 
  "ignor*",
  "interest",
  "loyal",
  "loyalt*",
  "man on the street*",
  "modesty",
  "moral",
  "morally",
  "noble",
  "ordinary man",
  "ordinary men",
  "ordinary person",
  "ordinary", 
  "praiseworthy",
  "principled",
  "reasonable",
  "refined",
  "the good",
  "upright",
  "upstanding",
  "valor",
  "valour*",
  "virtuous"
)))
